home *** CD-ROM | disk | FTP | other *** search
/ Varios Español / Varios Español.iso / DBASE5 / CUA_SAMP.ZIP / PREFIJOS.PRG < prev    next >
Text File  |  1994-10-12  |  7KB  |  237 lines
  1. * dBASE 5.0 DFM DRIVER - Do not remove this line
  2. PROCEDURE AREACODE     && Main program
  3. *-----------------------------------------------------------------
  4. * NAME
  5. *   AREACODE.PRG - Main program for form.
  6. *
  7. *-----------------------------------------------------------------
  8.     PRIVATE lTalk, lVoid, cOldProc, cFormRun, cDispMode, cNewMode
  9.     IF SET( 'TALK' ) = 'ON'
  10.         SET TALK OFF
  11.         lTalk = .T.
  12.     ELSE
  13.         lTalk = .F.
  14.     ENDIF
  15.     *--------------------------------------------
  16.     *-- Make sure that FormRun.dbo file is active
  17.     *--------------------------------------------
  18.     cOldProc = SET( 'PROCEDURE' )
  19.     cFormRun = HOME() + 'FORMRUN.DBO'
  20.     SET PROCEDURE TO &cFormRun
  21.     #include "PREFIJOS.DFM"
  22.     IF TYPE("AREACODE.SetDisp") = "L" .AND. TYPE("AREACODE.DispMode") = "C"
  23.         IF AREACODE.SetDisp
  24.             cDispMode = SET('DISPLAY')
  25.             cNewMode = AREACODE.DispMode
  26.             SET DISPLAY TO &cNewMode
  27.         ENDIF
  28.     ENDIF
  29.     *-------------------------------------------
  30.     *-- If ModalForm is missing from .DFM set it
  31.     *-------------------------------------------
  32.     IF TYPE( 'AREACODE.ModalForm' ) # 'L'
  33.         AREACODE.ModalForm = .T.        && Assume modal form if not set
  34.     ENDIF
  35.     *-----------------------------------
  36.     *-- Open the form based on ModalForm
  37.     *-----------------------------------
  38.     IF AREACODE.ModalForm
  39.         *-----------------------------------
  40.         *-- Use Readmodal() to open the form
  41.         *-----------------------------------
  42.         AREACODE.Action = .F.        && Set .T. by OKHAND before closing
  43.         lVoid = AREACODE.ReadModal()
  44.         IF AREACODE.Action
  45.             *-------------------------------------------
  46.             *-- Place code here to process OK pushbutton
  47.             *-------------------------------------------
  48.         ENDIF
  49.         IF TYPE("AREACODE.SetDisp") = "L"
  50.             IF AREACODE.SetDisp
  51.                 SET DISPLAY TO &cDispMode
  52.             ENDIF
  53.         ENDIF
  54.         RELEASE AREACODE        && Release the form and object ref.
  55.     ELSE
  56.         *------------------------------
  57.         *-- Use Open() to open the form
  58.         *------------------------------
  59.         _CmdWindow.oBForm = m->AreaCode
  60.         lVoid = AREACODE.Open()
  61.         *-------------------------------------------
  62.         *-- Make the form release itself when closed
  63.         *-- Comment out the RELEASE command to keep
  64.         *-- the form defined when closed.
  65.         *-------------------------------------------
  66.         RELEASE AREACODE
  67.     ENDIF
  68.     IF .NOT. ISBLANK( m->cOldProc )
  69.         SET PROCEDURE TO &cOldProc
  70.     ENDIF
  71.     IF lTalk
  72.         SET TALK ON
  73.     ENDIF
  74. RETURN
  75. *-- EOP: C:\DBASE\NEW\AREACODE.PRG
  76.  
  77. PROCEDURE CloseMe     && PBNAME7.ONCLICK
  78. *-----------------------------------------------------------------
  79. * NAME
  80. *   ONCLICK - Event handler for PBNAME7
  81. *
  82. *-----------------------------------------------------------------
  83.     Form.Action = .F.
  84.     lVoid = Form.Close()
  85. RETURN
  86.  
  87. PROCEDURE DelIt     && PBNAME5.ONCLICK
  88. *-----------------------------------------------------------------
  89. * NAME
  90. *   ONCLICK - Event handler for PBNAME5
  91. *
  92. *-----------------------------------------------------------------
  93.     IF DELETED()
  94.       Form.TxName11.Text = ""
  95.       RECALL
  96.     ELSE
  97.       Form.TxName11.Text = "BORRADO"
  98.       DELETE
  99.     ENDIF
  100. RETURN
  101.  
  102. PROCEDURE Add_new     && PBNAME4.ONCLICK
  103. *-----------------------------------------------------------------
  104. * NAME
  105. *   ONCLICK - Event handler for PBNAME4
  106. *
  107. *-----------------------------------------------------------------
  108.     NewRecord = .T.
  109.     *Write data to disk
  110.     lvoid = Form.submit()
  111.     APPEND BLANK
  112.     *Refresh Screen Data
  113.     lvoid = Form.refresh()
  114.     Form.TxName11.Text=""
  115. RETURN
  116.  
  117. PROCEDURE PrintMe     && PBNAME6.ONCLICK
  118. *-----------------------------------------------------------------
  119. * NAME
  120. *   ONCLICK - Event handler for PBNAME6
  121. *
  122. *-----------------------------------------------------------------
  123. DEFINE FORM Prt FROM 5,25 TO 16,50 ;
  124.     PROPERTY ;
  125.         TEXT "Imprimir ficha"
  126. DEFINE TEXT t1 OF Prt AT 1,1 ;
  127.     PROPERTY ;
  128.         Text "Tipo :",;
  129.         COLORNORMAL "R/W"
  130. DEFINE RADIOBUTTON Rep OF Prt AT 2,1 ;
  131.     PROPERTY ;
  132.         Text "Informe",;
  133.         Group .T.,;
  134.         COLORNORMAL "N/W",;
  135.         WIDTH 15
  136. DEFINE TEXT T3 OF Prt AT 9,5 ;
  137.     PROPERTY ;
  138.         TEXT "IMPRIMIENDO ..." ,;
  139.         VISIBLE .F.,;
  140.         WIDTH 15
  141. DEFINE PUSHBUTTON P1 OF Prt AT 8,12 ;
  142.     PROPERTY ;
  143.         TEXT "&Aceptar",;
  144.         ONCLICK "RunRep",;
  145.         Width 11
  146. DEFINE PUSHBUTTON P2 OF Prt AT 8,0 ;
  147.     PROPERTY ;
  148.         TEXT "&Cancelar",;
  149.         ONCLICK "Closeme",;
  150.         Width 12
  151. lVoid = Prt.Open()
  152.  
  153. ******************
  154. PROCEDURE Runrep
  155. * Check for Labels or Reports
  156. SET CONSOLE OFF
  157. DO CASE
  158.     CASE Form.Rep.Value
  159.          * display to user something is happening
  160.          Prt.T3.Visible = .t.
  161.          REPORT FORM Prefijos TO PRINTER
  162. ENDCASE
  163. SET CONSOLE ON
  164. SKIP -1
  165. lVoid = Form.Close()
  166. lVoid = Form.Release()
  167. RETURN
  168.  
  169. PROCEDURE CloseCode     && AREACODE.ONCLOSE
  170. *-----------------------------------------------------------------
  171. * NAME
  172. *   ONCLOSE - Event handler for AREACODE
  173. *
  174. *-----------------------------------------------------------------
  175.     IF This.Action
  176.         lVoid = This.Submit()
  177.     ELSE
  178.         IF This.Modified()
  179.             DO ErrorMsg WITH "Salir de Prefijos sin almacenar"
  180.         ENDIF
  181.     ENDIF
  182.     IF .NOT. This.lOpen     && if file wasn't already open on startup
  183.         USE IN PREFIJOS     && then shut it down
  184.     ENDIF
  185.     Main.App.Are.Enabled=.T.
  186.     Main.F1.CloseAll.Enabled=.T.
  187.     Main.S.Srch.Enabled=.F.
  188.     Main.S.Tp.Enabled=.F.
  189.     Main.S.Btm.Enabled=.F.
  190.     Main.S.Pck.Enabled=.T.
  191.     Main.S.Indx.Enabled=.T.
  192.     Main.E.Undo.Enabled=.F.
  193.     Main.E.Save.Enabled=.F.
  194.     Main.F1.Bac.Enabled=.T.
  195.     lVoid = This.Release()
  196.     RELEASE _CmdWindow.oBForm
  197. RETURN
  198.  
  199. PROCEDURE Repaint     && AREACODE.ONGOTFOCUS
  200. *-----------------------------------------------------------------
  201. * NAME
  202. *   ONGOTFOCUS - Event handler for AREACODE
  203. *
  204. *-----------------------------------------------------------------
  205. RETURN
  206.  
  207. PROCEDURE OpenCode     && AREACODE.ONOPEN
  208. *-----------------------------------------------------------------
  209. * NAME
  210. *   ONOPEN - Event handler for AREACODE
  211. *
  212. *-----------------------------------------------------------------
  213.     PRIVATE lOpen
  214.     lOpen = .F.     && is .DBF already open?
  215.     NewRecord = .F.            && added THovis
  216.     This.TxName11.Text = ""         && added THovis
  217.     SET ORDER TO CIUDAD
  218.     GOTO TOP
  219.     IF SELECT("PREFIJOS") = 0       && Check to see if file is already open
  220.         lOpen = .F.                 && file was not already open
  221.     ELSE
  222.         SELECT PREFIJOS
  223.     ENDIF
  224.     This.lOpen = lOpen  && save lOpen to form
  225.     Main.App.Are.Enabled=.F.
  226.     Main.F1.CloseAll.Enabled=.F.
  227.     Main.S.Srch.Enabled=.T.
  228.     Main.S.Tp.Enabled=.T.
  229.     Main.S.Btm.Enabled=.T.
  230.     Main.S.Pck.Enabled=.F.
  231.     Main.S.Indx.Enabled=.F.
  232.     Main.E.Undo.Enabled=.T.
  233.     Main.E.Save.Enabled=.T.
  234.     Main.F1.Bac.Enabled=.F.
  235. RETURN
  236.  
  237.